home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 3.3.l < prev    next >
Text File  |  2007-02-28  |  879b  |  41 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 HIDETURTLE 
  3. 0030 DIM IMAGE$ OF 64, IMAGE1$ OF 64
  4. 0040 FOR I:=1 TO 63 DO
  5. 0050 IMAGE$:=IMAGE$+CHR$(255)
  6. 0060 READ INFO
  7. 0070 IMAGE1$:=IMAGE1$+CHR$(INFO)
  8. 0080 ENDFOR I
  9. 0090 IMAGE$:=IMAGE$+CHR$(0)
  10. 0100 IMAGE1$:=IMAGE1$+CHR$(0)
  11. 0110 DEFINE 0,IMAGE$
  12. 0120 DEFINE 1,IMAGE1$
  13. 0130 IDENTIFY 0,0
  14. 0140 IDENTIFY 1,1
  15. 0150 SPRITECOLOR 0,2
  16. 0160 SPRITECOLOR 0,2
  17. 0170 SPRITESIZE 0,1,1
  18. 0180 SPRITESIZE 1,0,0
  19. 0190 X:=0; Y:=199
  20. 0200 REPEAT 
  21. 0210 SPRITEPOS 0,X,99
  22. 0220 SPRITEPOS 1,200,Y
  23. 0230 IF X>319 THEN
  24. 0240 X:=0
  25. 0250 ELSE 
  26. 0260 X:=X+1
  27. 0270 ENDIF 
  28. 0280 IF Y<0 THEN
  29. 0290 Y:=199
  30. 0300 ELSE 
  31. 0310 Y:=Y-1
  32. 0320 ENDIF 
  33. 0330 UNTIL KEY$<>CHR$(0)
  34. 0340 DATA 4,0,32,10,0,80,17,25,136
  35. 0350 DATA 33,0,132,6,0,96,8,0,16
  36. 0360 DATA 18,0,72,33,129,132,32,0,4
  37. 0370 DATA 32,0,4,32,24,4,16,6,8
  38. 0380 DATA 8,60,16,4,0,32,3,0,192
  39. 0390 DATA 0,25,0,0,102,0,0,102,0
  40. 0400 DATA 2,102,64,5,102,160,8,231,16
  41.